home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
System Booster
/
System Booster.iso
/
SYS
/
s
/
SaveChangedDocs.bed
< prev
next >
Wrap
Text File
|
1996-09-26
|
405b
|
24 lines
/*
** $VER: SaveChangedDocs.bed 1.0 (03.01.96)
**
** Save all currently loaded documents which have been changed, but not saved,
** and optionally close all opened documents.
*/
OPTIONS RESULTS
PARSE ARG quit
quit = UPPER(quit)
ADDRESS BED
GetDocuments
docs = RESULT
DO WHILE docs ~= ''
PARSE VAR docs '"'.'" ' port docs
ADDRESS VALUE port
SaveFile MODIFIED
IF quit = "QUIT" THEN CloseDoc
END